home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 May / macformat-024.iso / Demos / DTP / FrameMaker 4.0.4 / FrameMaker 4 rolling demo / FaxForm / FaxForm.rsrc / VWFI_1024 < prev    next >
Unknown  |  1994-12-06  |  3.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% TrID Adobe PhotoShop Brush default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 10 00 1d f8 e4 | 00 00 00 08 00 00 00 20 |........|....... |
|00000010| 00 07 00 00 00 00 00 00 | 0c 8d 00 00 0c b0 00 00 |........|........|
|00000020| 0c db 00 00 0c db 00 00 | 0c dd 00 00 0c dd 00 00 |........|........|
|00000030| 0c dd 6f 6e 20 63 68 65 | 63 6b 45 78 69 74 0d 20 |..on che|ckExit. |
|00000040| 20 69 66 20 74 68 65 20 | 63 6f 6d 6d 61 6e 64 44 | if the |commandD|
|00000050| 6f 77 6e 20 61 6e 64 20 | 28 74 68 65 20 6b 65 79 |own and |(the key|
|00000060| 20 3d 20 22 51 22 20 6f | 72 20 74 68 65 20 6b 65 | = "Q" o|r the ke|
|00000070| 79 20 3d 20 22 71 22 29 | 20 74 68 65 6e 0d 20 20 |y = "q")| then. |
|00000080| 20 20 72 65 70 65 61 74 | 20 77 69 74 68 20 69 3d | repeat| with i=|
|00000090| 31 20 74 6f 20 32 34 0d | 20 20 20 20 20 20 70 75 |1 to 24.| pu|
|000000a0| 70 70 65 74 53 70 72 69 | 74 65 20 69 2c 20 66 61 |ppetSpri|te i, fa|
|000000b0| 6c 73 65 0d 20 20 20 20 | 65 6e 64 20 72 65 70 65 |lse. |end repe|
|000000c0| 61 74 0d 20 20 20 20 67 | 6f 20 74 6f 20 66 72 61 |at. g|o to fra|
|000000d0| 6d 65 20 22 45 78 69 74 | 22 20 6f 66 20 6d 6f 76 |me "Exit|" of mov|
|000000e0| 69 65 20 22 4d 61 69 6e | 4c 6f 6f 70 22 0d 20 20 |ie "Main|Loop". |
|000000f0| 65 6e 64 20 69 66 0d 65 | 6e 64 0d 0d 6f 6e 20 53 |end if.e|nd..on S|
|00000100| 74 61 72 74 4d 6f 76 69 | 65 0d 20 20 67 6c 6f 62 |tartMovi|e. glob|
|00000110| 61 6c 20 45 6d 70 6c 6f | 79 65 65 73 42 75 74 74 |al Emplo|yeesButt|
|00000120| 6f 6e 0d 20 20 69 66 20 | 6f 62 6a 65 63 74 50 28 |on. if |objectP(|
|00000130| 45 6d 70 6c 6f 79 65 65 | 73 42 75 74 74 6f 6e 29 |Employee|sButton)|
|00000140| 20 74 68 65 6e 0d 20 20 | 20 20 45 6d 70 6c 6f 79 | then. | Employ|
|00000150| 65 65 73 42 75 74 74 6f | 6e 28 6d 44 69 73 70 6f |eesButto|n(mDispo|
|00000160| 73 65 29 0d 20 20 65 6e | 64 20 69 66 0d 20 20 73 |se). en|d if. s|
|00000170| 65 74 20 45 6d 70 6c 6f | 79 65 65 73 42 75 74 74 |et Emplo|yeesButt|
|00000180| 6f 6e 20 3d 20 52 61 64 | 69 6f 42 75 74 74 6f 6e |on = Rad|ioButton|
|00000190| 73 28 6d 4e 65 77 2c 20 | 42 31 36 2c 20 35 29 0d |s(mNew, |B16, 5).|
|000001a0| 20 20 0d 20 20 67 6c 6f | 62 61 6c 20 54 79 70 65 | . glo|bal Type|
|000001b0| 42 75 74 74 6f 6e 0d 20 | 20 69 66 20 6f 62 6a 65 |Button. | if obje|
|000001c0| 63 74 50 28 54 79 70 65 | 42 75 74 74 6f 6e 29 20 |ctP(Type|Button) |
|000001d0| 74 68 65 6e 0d 20 20 20 | 20 54 79 70 65 42 75 74 |then. | TypeBut|
|000001e0| 74 6f 6e 28 6d 44 69 73 | 70 6f 73 65 29 0d 20 20 |ton(mDis|pose). |
|000001f0| 65 6e 64 20 69 66 0d 20 | 20 73 65 74 20 54 79 70 |end if. | set Typ|
|00000200| 65 42 75 74 74 6f 6e 20 | 3d 20 52 61 64 69 6f 42 |eButton |= RadioB|
|00000210| 75 74 74 6f 6e 73 28 6d | 4e 65 77 2c 20 42 32 36 |uttons(m|New, B26|
|00000220| 2c 36 29 0d 20 20 0d 20 | 20 67 6c 6f 62 61 6c 20 |,6). . | global |
|00000230| 50 75 72 63 68 61 73 65 | 42 75 74 74 6f 6e 0d 20 |Purchase|Button. |
|00000240| 20 69 66 20 6f 62 6a 65 | 63 74 50 28 50 75 72 63 | if obje|ctP(Purc|
|00000250| 68 61 73 65 42 75 74 74 | 6f 6e 29 20 74 68 65 6e |haseButt|on) then|
|00000260| 0d 20 20 20 20 50 75 72 | 63 68 61 73 65 42 75 74 |. Pur|chaseBut|
|00000270| 74 6f 6e 28 6d 44 69 73 | 70 6f 73 65 29 0d 20 20 |ton(mDis|pose). |
|00000280| 65 6e 64 20 69 66 0d 20 | 20 73 65 74 20 50 75 72 |end if. | set Pur|
|00000290| 63 68 61 73 65 42 75 74 | 74 6f 6e 20 3d 20 52 61 |chaseBut|ton = Ra|
|000002a0| 64 69 6f 42 75 74 74 6f | 6e 73 28 6d 4e 65 77 2c |dioButto|ns(mNew,|
|000002b0| 20 42 36 32 2c 20 35 29 | 0d 20 20 0d 20 20 67 6c | B62, 5)|. . gl|
|000002c0| 6f 62 61 6c 20 42 75 64 | 67 65 74 42 75 74 74 6f |obal Bud|getButto|
|000002d0| 6e 0d 20 20 69 66 20 6f | 62 6a 65 63 74 50 28 42 |n. if o|bjectP(B|
|000002e0| 75 64 67 65 74 42 75 74 | 74 6f 6e 29 20 74 68 65 |udgetBut|ton) the|
|000002f0| 6e 0d 20 20 20 20 42 75 | 64 67 65 74 42 75 74 74 |n. Bu|dgetButt|
|00000300| 6f 6e 28 6d 44 69 73 70 | 6f 73 65 29 0d 20 20 65 |on(mDisp|ose). e|
|00000310| 6e 64 20 69 66 0d 20 20 | 73 65 74 20 42 75 64 67 |nd if. |set Budg|
|00000320| 65 74 42 75 74 74 6f 6e | 20 3d 20 52 61 64 69 6f |etButton| = Radio|
|00000330| 42 75 74 74 6f 6e 73 28 | 6d 4e 65 77 2c 20 43 32 |Buttons(|mNew, C2|
|00000340| 32 2c 20 35 29 0d 20 20 | 0d 20 20 67 6c 6f 62 61 |2, 5). |. globa|
|00000350| 6c 20 54 6f 42 75 74 74 | 6f 6e 0d 20 20 69 66 20 |l ToButt|on. if |
|00000360| 6f 62 6a 65 63 74 50 28 | 54 6f 42 75 74 74 6f 6e |objectP(|ToButton|
|00000370| 29 20 74 68 65 6e 0d 20 | 20 20 20 54 6f 42 75 74 |) then. | ToBut|
|00000380| 74 6f 6e 28 6d 44 69 73 | 70 6f 73 65 29 0d 20 20 |ton(mDis|pose). |
|00000390| 65 6e 64 20 69 66 0d 20 | 20 73 65 74 20 54 6f 42 |end if. | set ToB|
|000003a0| 75 74 74 6f 6e 20 3d 20 | 52 61 64 69 6f 42 75 74 |utton = |RadioBut|
|000003b0| 74 6f 6e 73 28 6d 4e 65 | 77 2c 20 43 33 32 2c 20 |tons(mNe|w, C32, |
|000003c0| 31 32 29 0d 20 20 0d 20 | 20 67 6c 6f 62 61 6c 20 |12). . | global |
|000003d0| 54 6f 43 6f 75 6e 74 72 | 79 0d 20 20 73 65 74 20 |ToCountr|y. set |
|000003e0| 54 6f 43 6f 75 6e 74 72 | 79 20 3d 20 22 55 53 22 |ToCountr|y = "US"|
|000003f0| 0d 20 20 0d 20 20 77 68 | 65 6e 20 6b 65 79 44 6f |. . wh|en keyDo|
|00000400| 77 6e 20 74 68 65 6e 20 | 63 68 65 63 6b 45 78 69 |wn then |checkExi|
|00000410| 74 0d 20 20 73 65 74 20 | 74 68 65 20 65 78 69 74 |t. set |the exit|
|00000420| 4c 6f 63 6b 20 3d 20 74 | 72 75 65 0d 65 6e 64 0d |Lock = t|rue.end.|
|00000430| 0d 6f 6e 20 62 75 74 74 | 6f 6e 44 6f 77 6e 20 6e |.on butt|onDown n|
|00000440| 6f 72 6d 61 6c 43 61 73 | 74 2c 20 68 69 6c 69 74 |ormalCas|t, hilit|
|00000450| 65 43 61 73 74 0d 20 20 | 73 65 74 20 64 6f 77 6e |eCast. |set down|
|00000460| 4f 6e 20 3d 20 74 68 65 | 20 63 6c 69 63 6b 4f 6e |On = the| clickOn|
|00000470| 0d 20 20 70 75 70 70 65 | 74 53 70 72 69 74 65 20 |. puppe|tSprite |
|00000480| 64 6f 77 6e 4f 6e 2c 20 | 74 72 75 65 0d 20 20 73 |downOn, |true. s|
|00000490| 65 74 20 74 65 73 74 20 | 3d 20 74 72 75 65 0d 20 |et test |= true. |
|000004a0| 20 72 65 70 65 61 74 20 | 77 68 69 6c 65 20 74 68 | repeat |while th|
|000004b0| 65 20 6d 6f 75 73 65 44 | 6f 77 6e 0d 20 20 20 20 |e mouseD|own. |
|000004c0| 69 66 20 72 6f 6c 6c 6f | 76 65 72 20 28 64 6f 77 |if rollo|ver (dow|
|000004d0| 6e 4f 6e 29 20 74 68 65 | 6e 0d 20 20 20 20 20 20 |nOn) the|n. |
|000004e0| 73 65 74 20 74 68 65 20 | 63 61 73 74 4e 75 6d 20 |set the |castNum |
|000004f0| 6f 66 20 73 70 72 69 74 | 65 20 64 6f 77 6e 4f 6e |of sprit|e downOn|
|00000500| 20 3d 20 68 69 6c 69 74 | 65 43 61 73 74 0d 20 20 | = hilit|eCast. |
|00000510| 20 20 20 20 73 65 74 20 | 74 65 73 74 20 3d 20 74 | set |test = t|
|00000520| 72 75 65 0d 20 20 20 20 | 65 6c 73 65 0d 20 20 20 |rue. |else. |
|00000530| 20 20 20 73 65 74 20 74 | 68 65 20 63 61 73 74 4e | set t|he castN|
|00000540| 75 6d 20 6f 66 20 73 70 | 72 69 74 65 20 64 6f 77 |um of sp|rite dow|
|00000550| 6e 4f 6e 20 3d 20 6e 6f | 72 6d 61 6c 43 61 73 74 |nOn = no|rmalCast|
|00000560| 0d 20 20 20 20 20 20 73 | 65 74 20 74 65 73 74 20 |. s|et test |
|00000570| 3d 20 66 61 6c 73 65 0d | 20 20 20 20 65 6e 64 20 |= false.| end |
|00000580| 69 66 0d 20 20 20 20 75 | 70 64 61 74 65 53 74 61 |if. u|pdateSta|
|00000590| 67 65 0d 20 20 65 6e 64 | 20 72 65 70 65 61 74 0d |ge. end| repeat.|
|000005a0| 20 20 73 65 74 20 74 68 | 65 20 63 61 73 74 4e 75 | set th|e castNu|
|000005b0| 6d 20 6f 66 20 73 70 72 | 69 74 65 20 64 6f 77 6e |m of spr|ite down|
|000005c0| 4f 6e 20 3d 20 6e 6f 72 | 6d 61 6c 43 61 73 74 0d |On = nor|malCast.|
|000005d0| 20 20 70 75 70 70 65 74 | 53 70 72 69 74 65 20 64 | puppet|Sprite d|
|000005e0| 6f 77 6e 4f 6e 2c 20 66 | 61 6c 73 65 0d 20 20 72 |ownOn, f|alse. r|
|000005f0| 65 74 75 72 6e 20 74 65 | 73 74 0d 65 6e 64 0d 0d |eturn te|st.end..|
|00000600| 6f 6e 20 44 6f 53 65 74 | 54 6f 4e 75 6d 0d 20 20 |on DoSet|ToNum. |
|00000610| 67 6c 6f 62 61 6c 20 54 | 6f 43 6f 75 6e 74 72 79 |global T|oCountry|
|00000620| 0d 20 20 69 66 20 54 6f | 43 6f 75 6e 74 72 79 20 |. if To|Country |
|00000630| 3d 20 22 55 53 22 20 74 | 68 65 6e 0d 20 20 20 20 |= "US" t|hen. |
|00000640| 73 65 74 20 74 68 65 20 | 74 65 78 74 20 6f 66 20 |set the |text of |
|00000650| 66 69 65 6c 64 20 22 54 | 6f 46 61 78 4e 75 6d 22 |field "T|oFaxNum"|
|00000660| 20 3d 20 22 46 72 61 6d | 65 20 54 65 63 68 6e 6f | = "Fram|e Techno|
|00000670| 6c 6f 67 79 22 20 26 20 | 52 45 54 55 52 4e 20 26 |logy" & |RETURN &|
|00000680| 20 22 28 34 30 38 29 20 | 39 37 35 20 36 37 39 39 | "(408) |975 6799|
|00000690| 22 0d 20 20 65 6c 73 65 | 20 69 66 20 54 6f 43 6f |". else| if ToCo|
|000006a0| 75 6e 74 72 79 20 3d 20 | 22 55 4b 22 20 74 68 65 |untry = |"UK" the|
|000006b0| 6e 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 74 65 |n. se|t the te|
|000006c0| 78 74 20 6f 66 20 66 69 | 65 6c 64 20 22 54 6f 46 |xt of fi|eld "ToF|
|000006d0| 61 78 4e 75 6d 22 20 3d | 20 22 46 72 61 6d 65 20 |axNum" =| "Frame |
|000006e0| 54 65 63 68 6e 6f 6c 6f | 67 79 20 55 6e 69 74 65 |Technolo|gy Unite|
|000006f0| 64 20 4b 69 6e 67 64 6f | 6d 22 20 26 20 52 45 54 |d Kingdo|m" & RET|
|00000700| 55 52 4e 20 26 22 30 38 | 31 20 38 39 39 20 31 37 |URN &"08|1 899 17|
|00000710| 33 32 22 0d 20 20 65 6c | 73 65 20 69 66 20 54 6f |32". el|se if To|
|00000720| 43 6f 75 6e 74 72 79 20 | 3d 20 22 46 72 61 6e 63 |Country |= "Franc|
|00000730| 65 22 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 |e" then.| set |
|00000740| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|00000750| 64 20 22 54 6f 46 61 78 | 4e 75 6d 22 20 3d 20 22 |d "ToFax|Num" = "|
|00000760| 46 72 61 6d 65 20 54 65 | 63 68 6e 6f 6c 6f 67 79 |Frame Te|chnology|
|00000770| 20 46 72 61 6e 63 65 22 | 20 26 20 52 45 54 55 52 | France"| & RETUR|
|00000780| 4e 20 26 22 31 20 33 30 | 20 38 34 20 39 39 20 37 |N &"1 30| 84 99 7|
|00000790| 34 22 0d 20 20 65 6c 73 | 65 20 69 66 20 54 6f 43 |4". els|e if ToC|
|000007a0| 6f 75 6e 74 72 79 20 3d | 20 22 47 65 72 6d 61 6e |ountry =| "German|
|000007b0| 79 22 20 74 68 65 6e 0d | 20 20 20 20 73 65 74 20 |y" then.| set |
|000007c0| 74 68 65 20 74 65 78 74 | 20 6f 66 20 66 69 65 6c |the text| of fiel|
|000007d0| 64 20 22 54 6f 46 61 78 | 4e 75 6d 22 20 3d 20 22 |d "ToFax|Num" = "|
|000007e0| 46 72 61 6d 65 20 54 65 | 63 68 6e 6f 6c 6f 67 79 |Frame Te|chnology|
|000007f0| 20 47 65 72 6d 61 6e 79 | 22 20 26 20 52 45 54 55 | Germany|" & RETU|
|00000800| 52 4e 20 26 22 37 31 31 | 20 37 32 38 37 20 34 30 |RN &"711| 7287 40|
|00000810| 34 22 0d 20 20 65 6c 73 | 65 20 69 66 20 54 6f 43 |4". els|e if ToC|
|00000820| 6f 75 6e 74 72 79 20 3d | 20 22 45 75 72 6f 70 65 |ountry =| "Europe|
|00000830| 22 20 74 68 65 6e 0d 20 | 20 20 20 73 65 74 20 74 |" then. | set t|
|00000840| 68 65 20 74 65 78 74 20 | 6f 66 20 66 69 65 6c 64 |he text |of field|
|00000850| 20 22 54 6f 46 61 78 4e | 75 6d 22 20 3d 20 22 46 | "ToFaxN|um" = "F|
|00000860| 72 61 6d 65 20 54 65 63 | 68 6e 6f 6c 6f 67 79 22 |rame Tec|hnology"|
|00000870| 20 26 20 52 45 54 55 52 | 4e 20 26 c2 0d 20 20 20 | & RETUR|N &.. |
|00000880| 20 20 20 20 20 20 20 22 | 45 75 72 6f 70 65 61 6e | "|European|
|00000890| 20 48 65 61 64 71 75 61 | 72 74 65 72 73 2c 20 44 | Headqua|rters, D|
|000008a0| 75 62 6c 69 6e 20 26 20 | 52 45 54 55 52 4e 20 26 |ublin & |RETURN &|
|000008b0| 22 2b 33 35 33 20 31 20 | 38 34 32 39 34 37 38 22 |"+353 1 |8429478"|
|000008c0| 0d 20 20 65 6c 73 65 20 | 69 66 20 54 6f 43 4f 75 |. else |if ToCOu|
|000008d0| 6e 74 72 79 20 3d 20 22 | 4a 61 70 61 6e 22 20 74 |ntry = "|Japan" t|
|000008e0| 68 65 6e 0d 20 20 20 20 | 73 65 74 20 74 68 65 20 |hen. |set the |
|000008f0| 74 65 78 74 20 6f 66 20 | 66 69 65 6c 64 20 22 54 |text of |field "T|
|00000900| 6f 46 61 78 4e 75 6d 22 | 20 3d 20 22 46 72 61 6d |oFaxNum"| = "Fram|
|00000910| 65 20 54 65 63 68 6e 6f | 6c 6f 67 79 20 4a 61 70 |e Techno|logy Jap|
|00000920| 61 6e 22 20 26 20 52 45 | 54 55 52 4e 20 26 22 38 |an" & RE|TURN &"8|
|00000930| 31 20 33 20 33 32 36 38 | 20 38 38 35 30 22 0d 20 |1 3 3268| 8850". |
|00000940| 20 65 6c 73 65 20 69 66 | 20 54 6f 43 6f 75 6e 74 | else if| ToCount|
|00000950| 72 79 20 3d 20 22 45 41 | 75 73 74 22 20 74 68 65 |ry = "EA|ust" the|
|00000960| 6e 0d 20 20 20 20 73 65 | 74 20 74 68 65 20 74 65 |n. se|t the te|
|00000970| 78 74 20 6f 66 20 66 69 | 65 6c 64 20 22 54 6f 46 |xt of fi|eld "ToF|
|00000980| 61 78 4e 75 6d 22 20 3d | 20 22 46 72 61 6d 65 20 |axNum" =| "Frame |
|00000990| 54 65 63 68 6e 6f 6c 6f | 67 79 20 41 75 73 74 72 |Technolo|gy Austr|
|000009a0| 61 6c 69 61 22 20 26 20 | 52 45 54 55 52 4e 20 26 |alia" & |RETURN &|
|000009b0| 22 28 36 31 29 20 38 20 | 33 37 33 20 32 35 32 37 |"(61) 8 |373 2527|
|000009c0| 22 0d 20 20 65 6c 73 65 | 20 69 66 20 54 6f 43 6f |". else| if ToCo|
|000009d0| 75 6e 74 72 79 20 3d 20 | 22 57 41 75 73 74 22 20 |untry = |"WAust" |
|000009e0| 74 68 65 6e 0d 20 20 20 | 20 73 65 74 20 74 68 65 |then. | set the|
|000009f0| 20 74 65 78 74 20 6f 66 | 20 66 69 65 6c 64 20 22 | text of| field "|
|00000a00| 54 6f 46 61 78 4e 75 6d | 22 20 3d 20 22 46 72 61 |ToFaxNum|" = "Fra|
|00000a10| 6d 65 20 54 65 63 68 6e | 6f 6c 6f 67 79 20 41 75 |me Techn|ology Au|
|00000a20| 73 74 72 61 6c 69 61 22 | 20 26 20 52 45 54 55 52 |stralia"| & RETUR|
|00000a30| 4e 20 26 22 28 36 31 29 | 20 37 20 38 33 31 20 38 |N &"(61)| 7 831 8|
|00000a40| 31 31 38 22 0d 20 20 65 | 6c 73 65 20 69 66 20 54 |118". e|lse if T|
|00000a50| 6f 43 6f 75 6e 74 72 79 | 20 3d 20 22 4e 65 77 5a |oCountry| = "NewZ|
|00000a60| 65 61 22 20 74 68 65 6e | 0d 20 20 20 20 73 65 74 |ea" then|. set|
|00000a70| 20 74 68 65 20 74 65 78 | 74 20 6f 66 20 66 69 65 | the tex|t of fie|
|00000a80| 6c 64 20 22 54 6f 46 61 | 78 4e 75 6d 22 20 3d 20 |ld "ToFa|xNum" = |
|00000a90| 22 46 72 61 6d 65 20 54 | 65 63 68 6e 6f 6c 6f 67 |"Frame T|echnolog|
|00000aa0| 79 20 4e 65 77 20 5a 65 | 61 6c 61 6e 64 22 20 26 |y New Ze|aland" &|
|00000ab0| 20 52 45 54 55 52 4e 20 | 26 22 28 34 30 38 29 20 | RETURN |&"(408) |
|00000ac0| 39 37 35 20 36 36 30 32 | 22 0d 20 20 65 6c 73 65 |975 6602|". else|
|00000ad0| 20 69 66 20 54 6f 43 6f | 75 6e 74 72 79 20 3d 20 | if ToCo|untry = |
|00000ae0| 22 42 72 61 7a 69 6c 22 | 20 74 68 65 6e 0d 20 20 |"Brazil"| then. |
|00000af0| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f | set th|e text o|
|00000b00| 66 20 66 69 65 6c 64 20 | 22 54 6f 46 61 78 4e 75 |f field |"ToFaxNu|
|00000b10| 6d 22 20 3d 20 22 46 72 | 61 6d 65 20 54 65 63 68 |m" = "Fr|ame Tech|
|00000b20| 6e 6f 6c 6f 67 79 20 42 | 72 61 7a 69 6c 22 20 26 |nology B|razil" &|
|00000b30| 20 52 45 54 55 52 4e 20 | 26 22 2b 35 35 20 31 31 | RETURN |&"+55 11|
|00000b40| 20 32 35 39 20 36 30 36 | 32 22 0d 20 20 65 6c 73 | 259 606|2". els|
|00000b50| 65 20 69 66 20 54 6f 43 | 6f 75 6e 74 72 79 20 3d |e if ToC|ountry =|
|00000b60| 20 22 4c 61 74 69 6e 22 | 20 74 68 65 6e 0d 20 20 | "Latin"| then. |
|00000b70| 20 20 73 65 74 20 74 68 | 65 20 74 65 78 74 20 6f | set th|e text o|
|00000b80| 66 20 66 69 65 6c 64 20 | 22 54 6f 46 61 78 4e 75 |f field |"ToFaxNu|
|00000b90| 6d 22 20 3d 20 22 46 72 | 61 6d 65 20 54 65 63 68 |m" = "Fr|ame Tech|
|00000ba0| 6e 6f 6c 6f 67 79 20 4c | 61 74 69 6e 20 41 6d 65 |nology L|atin Ame|
|00000bb0| 72 69 63 61 22 20 26 20 | 52 45 54 55 52 4e 20 26 |rica" & |RETURN &|
|00000bc0| 22 28 34 30 38 29 20 39 | 37 35 20 36 36 30 32 22 |"(408) 9|75 6602"|
|00000bd0| 0d 20 20 65 6c 73 65 20 | 69 66 20 54 6f 43 6f 75 |. else |if ToCou|
|00000be0| 6e 74 72 79 20 3d 20 22 | 41 73 69 61 22 20 74 68 |ntry = "|Asia" th|
|00000bf0| 65 6e 0d 20 20 20 20 73 | 65 74 20 74 68 65 20 74 |en. s|et the t|
|00000c00| 65 78 74 20 6f 66 20 66 | 69 65 6c 64 20 22 54 6f |ext of f|ield "To|
|00000c10| 46 61 78 4e 75 6d 22 20 | 3d 20 22 46 72 61 6d 65 |FaxNum" |= "Frame|
|00000c20| 20 54 65 63 68 6e 6f 6c | 6f 67 79 20 41 73 69 61 | Technol|ogy Asia|
|00000c30| 20 26 20 41 66 72 69 63 | 61 22 20 26 20 52 45 54 | & Afric|a" & RET|
|00000c40| 55 52 4e 20 26 22 28 34 | 30 38 29 20 39 37 35 20 |URN &"(4|08) 975 |
|00000c50| 36 36 30 32 22 0d 20 20 | 65 6c 73 65 0d 20 20 20 |6602". |else. |
|00000c60| 20 73 65 74 20 74 68 65 | 20 74 65 78 74 20 6f 66 | set the| text of|
|00000c70| 20 66 69 65 6c 64 20 22 | 54 6f 46 61 78 4e 75 6d | field "|ToFaxNum|
|00000c80| 22 20 3d 20 22 46 72 61 | 6d 65 20 54 65 63 68 6e |" = "Fra|me Techn|
|00000c90| 6f 6c 6f 67 79 22 20 26 | 20 52 45 54 55 52 4e 20 |ology" &| RETURN |
|00000ca0| 26 22 28 34 30 38 29 20 | 39 37 35 20 36 36 30 32 |&"(408) |975 6602|
|00000cb0| 22 0d 20 20 65 6e 64 20 | 69 66 0d 65 6e 64 0d 22 |". end |if.end."|
|00000cc0| 44 61 6e 20 57 2e 20 50 | 69 6c 6b 65 6e 74 6f 6e |Dan W. P|ilkenton|
|00000cd0| 20 2d 20 4d 65 64 69 61 | 20 45 6e 63 61 6e 74 61 | - Media| Encanta|
|00000ce0| 64 61 2a 44 61 76 65 20 | 4d 65 6e 6e 69 6e 67 65 |da*Dave |Menninge|
|00000cf0| 72 20 2d 20 41 6e 69 6d | 61 74 65 64 20 53 79 73 |r - Anim|ated Sys|
|00000d00| 74 65 6d 73 20 26 20 44 | 65 73 69 67 6e 00 00 |tems & D|esign.. |
+--------+-------------------------+-------------------------+--------+--------+